home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / t_os / komei4 / komei4.exe / ICON / I_GA.HD6 < prev    next >
Text File  |  1993-06-03  |  3KB  |  161 lines
  1. ds_name        db    'MOJ\I_GA',0
  2.  
  3.  
  4. paint_wd:
  5.      SET_P    dt1
  6. re_paint:
  7.      WD_CLS 0
  8.      call    do_con
  9.      BOX boxdt,1
  10.      ret
  11.  
  12. do_con:
  13.  
  14.     call    u_con1
  15.     call    p_con
  16.     call    u_con2
  17.     call    p_con
  18.     call    u_con3
  19.     call    p_con
  20.     call    u_con4
  21.     call    p_con
  22.     call    u_con5
  23.     call    p_con
  24.     call    u_con6
  25.     call    p_con
  26.     call    u_con7
  27.     call    p_con
  28.     call    u_con8
  29.     call    p_con
  30.     ret
  31.  
  32. p_con:
  33.     mov    ah,2
  34.     mov    al,0
  35.     call    MOUSE
  36.  
  37.     mov    ah,100
  38.     mov    al,31
  39.     call    komei1
  40.  
  41.     mov    ah,2
  42.     mov    al,1
  43.     call    MOUSE
  44.     ret
  45.  
  46.  
  47. be_called:
  48.     YOMU    ax,300
  49.     cmp    ax,1
  50.     je    re_paint
  51.     cmp    ax,400
  52.     je    neru
  53.     cmp    ax,500
  54.     je    okiru
  55.     ret
  56. neru:
  57.     WD_ERZ 1
  58.     WD_ERZ 0
  59.     WD_LEFT
  60.     ret
  61. okiru:
  62.     WD_WANT
  63.     jmp    re_paint
  64.  
  65.  
  66. mouse_in:                   ;諸葛亮よりwindowにマウスが入ったと言って来た｡
  67.       cmp ch,1          ;左ボタンが押されていれば
  68.       je mouseck        ; 何処の箱か調べさせる
  69.       ret
  70.  
  71. mouseck:
  72.      MOU boxdt1,64        ;関策にboxdtより箱を二つ調べさせる
  73.      cmp bx,1                  ;bx=1 find
  74.      je short mck1             
  75.      ret
  76.  
  77. mck1:
  78.     KAKU    word ptr 300,1
  79.     KAKU    302,ax
  80.     CALL_P    dt1
  81.      ret
  82.  
  83. dt1:
  84.     call    sub_edi
  85.     dw    0
  86.     db    'MOTO_E',0
  87.  
  88. ;--------------------------------------------
  89. ;         look_me   諸葛亮に読ませるwindowデータです｡
  90.  
  91. look_me:
  92.      call sub_esi         ; esi 固定です｡
  93.      dd 0,0
  94.      dw     1    ; ここが 1 の物は open start です｡
  95.          dw      0
  96.          dw  256+2,256+2,0,0,15,0,0,0
  97.  
  98.  
  99. ;----------------------
  100. ;   関策に読ませるboxデータです｡名前は自由です｡
  101.  
  102. boxdt:
  103.     call sub_edi                               ; edi 固定です｡
  104.         dw    1,256+1,256+1,0,0,0,0,15,0,0
  105.  
  106. boxdt1:
  107.     call sub_edi                               ; edi 固定です｡
  108.  
  109.         dw    8,32,32,1,1,33,0,15,0,0
  110.         dw    8,32,32,1,1+32,32,0,15,0,0
  111.         dw    8,32,32,1,1+32*2,32,0,15,0,0
  112.         dw    8,32,32,1,1+32*3,32,0,15,0,0
  113.         dw    8,32,32,1,1+32*4,32,0,15,0,0
  114.         dw    8,32,32,1,1+32*5,32,0,15,0,0
  115.         dw    8,32,32,1,1+32*6,32,0,15,0,0
  116.         dw    8,32,32,1,1+32*7,32,0,15,0,0
  117.  
  118.         dw    1,48,20,12,2,0,20,11,8,0
  119.  
  120. u_con1:
  121.     call sub_edi
  122. dw    1,1,1,32,0,1,2,3,4,5,6,7,8,0
  123.  
  124. u_con2:
  125.     call sub_edi
  126. dw    1,1,1+32,32,0,1+8,2+8,3+8,4+8,5+8,6+8,7+8,8+8,0
  127.  
  128. u_con3:
  129.     call sub_edi
  130. dw    1,1,1+32*2,32,0,1+8*2,2+8*2,3+8*2,4+8*2,5+8*2,6+8*2,7+8*2,8+8*2,0
  131.  
  132. u_con4:
  133.     call sub_edi
  134. dw    1,1,1+32*3,32,0,1+8*3,2+8*3,3+8*3,4+8*3,5+8*3,6+8*3,7+8*3,8+8*3,0
  135.  
  136. u_con5:
  137.     call sub_edi
  138. dw    1,1,1+32*4,32,0,1+8*4,2+8*4,3+8*4,4+8*4,5+8*4,6+8*4,7+8*4,8+8*4,0
  139.  
  140. u_con6:
  141.     call sub_edi
  142. dw    1,1,1+32*5,32,0,1+8*5,2+8*5,3+8*5,4+8*5,5+8*5,6+8*5,7+8*5,8+8*5,0
  143.  
  144. u_con7:
  145.     call sub_edi
  146. dw    1,1,1+32*6,32,0,1+8*6,2+8*6,3+8*6,4+8*6,5+8*6,6+8*6,7+8*6,8+8*6,0
  147.  
  148. u_con8:
  149.     call sub_edi
  150. dw    1,1,1+32*7,32,0,1+8*7,2+8*7,3+8*7,4+8*7,5+8*7,6+8*7,7+8*7,8+8*7,0
  151.  
  152. p_call:
  153.     M_P_CALL
  154.  
  155. p_set:
  156.     M_P_SET
  157.  
  158.  
  159.  
  160.  
  161.